Belgian Amiga Club - ADF Collection/BS1 part 60.zip/BS1 part 60/Kick Pascal v2.10 d1.adf/INCLUDE/graphics/gfx.h

Text File | 1990-11-01 | 438b | 27 lines

{$if not def GRAPHICS_GFX_H}
Const
 GRAPHICS_GFX_H=0;
 BITSET=$8000;
 BITCLR=0;
Type
p_Rectangle=^Rectangle;
Rectangle=Record
 MinX,MinY,MaxX,MaxY:integer
End;
p_tPoint=^tPoint;
tPoint=Record
 x,y:integer
End;
PLANEPTR=^Ptr;
p_BitMap=^BitMap;
BitMap=Record
 BytesPerRow,Rows:Word;
 Flags,Depth:Byte;
 pad:Word;
 Planes:Array[0..7]of PLANEPTR
End;
Function RASSIZE(w,h:Long):Long;
 Begin RASSIZE:=h*(((w+15)div 8)and $FFFE) End;
{$endif}